home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_70308.txt < prev    next >
Text File  |  1989-06-13  |  13KB  |  561 lines
  1. -- card: 70308 from stack: in
  2. -- bmap block id: 67211
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=316 top=54 right=71 bottom=366
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: f1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=316 top=80 right=97 bottom=366
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: f2
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=317 top=104 right=121 bottom=367
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: f3
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=317 top=127 right=144 bottom=367
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: f4
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 00
  66. -- high flags: 0002
  67. -- rect: left=318 top=151 right=168 bottom=368
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: f5
  76.  
  77.  
  78. -- part 6 (field)
  79. -- low flags: 00
  80. -- high flags: 0002
  81. -- rect: left=317 top=174 right=191 bottom=367
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: f6
  90.  
  91.  
  92. -- part 7 (field)
  93. -- low flags: 00
  94. -- high flags: 0002
  95. -- rect: left=317 top=198 right=215 bottom=367
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: f7
  104.  
  105.  
  106. -- part 8 (field)
  107. -- low flags: 00
  108. -- high flags: 0002
  109. -- rect: left=380 top=54 right=71 bottom=430
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: f8
  118.  
  119.  
  120. -- part 9 (field)
  121. -- low flags: 00
  122. -- high flags: 0002
  123. -- rect: left=380 top=80 right=97 bottom=430
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: f9
  132.  
  133.  
  134. -- part 10 (field)
  135. -- low flags: 00
  136. -- high flags: 0002
  137. -- rect: left=381 top=105 right=122 bottom=431
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: f10
  146.  
  147.  
  148. -- part 11 (field)
  149. -- low flags: 00
  150. -- high flags: 0002
  151. -- rect: left=381 top=129 right=146 bottom=431
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 3
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: f11
  160.  
  161.  
  162. -- part 12 (field)
  163. -- low flags: 00
  164. -- high flags: 0002
  165. -- rect: left=382 top=152 right=169 bottom=432
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: f12
  174.  
  175.  
  176. -- part 13 (field)
  177. -- low flags: 00
  178. -- high flags: 0002
  179. -- rect: left=382 top=175 right=192 bottom=432
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 3
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: f13
  188.  
  189.  
  190. -- part 14 (field)
  191. -- low flags: 00
  192. -- high flags: 0002
  193. -- rect: left=383 top=197 right=214 bottom=433
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 3
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: f14
  202.  
  203.  
  204. -- part 15 (field)
  205. -- low flags: 00
  206. -- high flags: 0002
  207. -- rect: left=439 top=54 right=71 bottom=489
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 3
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: f15
  216.  
  217.  
  218. -- part 16 (field)
  219. -- low flags: 00
  220. -- high flags: 0002
  221. -- rect: left=440 top=79 right=96 bottom=490
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 0
  225. -- font id: 3
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: f16
  230.  
  231.  
  232. -- part 17 (field)
  233. -- low flags: 00
  234. -- high flags: 0002
  235. -- rect: left=440 top=103 right=120 bottom=490
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 0
  239. -- font id: 3
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: f17
  244.  
  245.  
  246. -- part 18 (field)
  247. -- low flags: 00
  248. -- high flags: 0002
  249. -- rect: left=441 top=129 right=146 bottom=491
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 3
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: f18
  258.  
  259.  
  260. -- part 19 (field)
  261. -- low flags: 00
  262. -- high flags: 0002
  263. -- rect: left=442 top=152 right=169 bottom=492
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 0
  267. -- font id: 3
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: f19
  272.  
  273.  
  274. -- part 20 (field)
  275. -- low flags: 00
  276. -- high flags: 0002
  277. -- rect: left=442 top=176 right=193 bottom=492
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 3
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: f20
  286.  
  287.  
  288. -- part 21 (field)
  289. -- low flags: 00
  290. -- high flags: 0002
  291. -- rect: left=443 top=197 right=214 bottom=493
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 0 / 0
  294. -- text alignment: 0
  295. -- font id: 3
  296. -- text size: 12
  297. -- style flags: 0
  298. -- line height: 16
  299. -- part name: f21
  300.  
  301.  
  302. -- part 22 (button)
  303. -- low flags: 00
  304. -- high flags: 8003
  305. -- rect: left=357 top=282 right=304 bottom=457
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: CALCULATE
  314. ----- HyperTalk script -----
  315. on mouseUp
  316.   global sum
  317.   global total
  318.   global pois
  319.   put the value of (card field f1) + (card field f2) + (card field f3) + (card field f4) + (card field f5) + (card field f6) + (card field f7) into sum
  320.   put the value of (card field f1 * 0) into card field f8
  321.   put the value of (card field f2 * 1) into card field f9
  322.   put the value of (card field f3 * 2) into card field f10
  323.   put the value of (card field f4 * 3) into card field f11
  324.   put the value of (card field f5 * 4) into card field f12
  325.   put the value of (card field f6 * 5) into card field f13
  326.   put the value of (card field f7 * 6) into card field f14
  327.   put (card field f8) + (card field f9) + (card field f10) + (card field f11) + ( card field f12) + (card field f13) + (card field f14) into total
  328.   put the value of (total/sum) into pois
  329.   set numberFormat to "00.00"
  330.   put the value of ((2.718 ^- pois) * 1  * sum) into card field f15
  331.   put the value of ((2.718 ^- pois) * pois * sum) into card field f16
  332.   put the value of ((2.718 ^- pois) * ((pois ^2) / 2) * sum) into card field f17
  333.   put the value of ((2.718 ^- pois) * ((pois ^3) / 6) * sum) into card field 18
  334.   put the value of ((2.718 ^- pois) * ((pois ^4) / 24) * sum) into card field f19
  335.   put the value of ((2.718 ^- pois) * ((pois ^5) / 120) * sum) into card field 20
  336.   put the value of ((2.718 ^- pois) * ((pois ^6) / 720) * sum)  into card field 21
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 23 (button)
  342. -- low flags: 00
  343. -- high flags: 8003
  344. -- rect: left=356 top=253 right=275 bottom=456
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: CLEAR
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   delete line 1 of card field f1
  356.   put 0 into card field f2
  357.   put 0 into card field f3
  358.   put 0 into card field f4
  359.   put 0 into card field f5
  360.   put 0 into card field f6
  361.   put 0 into card field f7
  362.   put 0 into card field f8
  363.   put 0 into card field f9
  364.   put 0 into card field f10
  365.   put 0 into card field f11
  366.   put 0 into card field f12
  367.   put 0 into card field f13
  368.   put 0 into card field f14
  369.   put 0 into card field f15
  370.   put 0 into card field f16
  371.   put 0 into card field f17
  372.   put 0 into card field f18
  373.   put 0 into card field f19
  374.   put 0 into card field f20
  375.   put 0 into card field f21
  376.   get the location of card field f1
  377.   click at it
  378. end mouseUp
  379.  
  380.  
  381.  
  382. -- part 24 (button)
  383. -- low flags: 00
  384. -- high flags: 8003
  385. -- rect: left=358 top=310 right=332 bottom=458
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 1
  389. -- font id: 0
  390. -- text size: 12
  391. -- style flags: 0
  392. -- line height: 16
  393. -- part name: CHI SQUARE
  394. ----- HyperTalk script -----
  395. on mouseUp
  396.   global bagone
  397.   global bagtwo
  398.   global bagthree
  399.   global bagfour
  400.   global sackone
  401.   global sacktwo
  402.   global sackthree
  403.   global sackfour
  404.   put the value of card field f1 into bagone
  405.   put the value of card field f2 into bagtwo
  406.   put the value of card field f3 into bagthree
  407.   put the value of card field f4 into bagfour
  408.   put the value of card field f15 into sackone
  409.   put the value of card field f16 into sacktwo
  410.   put the value of card field f17 into sackthree
  411.   put the value of card field f18 into sackfour
  412.   go to card id 25732
  413.   put bagone into card field "CLASS1"
  414.   put bagtwo into card field "CLASS2"
  415.   put bagthree into card field "CLASS3"
  416.   put bagfour into card field "CLASS4"
  417.   put sackone into card field "f5"
  418.   put sacktwo into card field "f6"
  419.   put sackthree into card field "f7"
  420.   put sackfour into card field "f8"
  421. end mouseUp
  422.  
  423.  
  424.  
  425.  
  426. -- part 25 (button)
  427. -- low flags: 00
  428. -- high flags: 8003
  429. -- rect: left=205 top=315 right=337 bottom=256
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 1
  433. -- font id: 0
  434. -- text size: 12
  435. -- style flags: 0
  436. -- line height: 16
  437. -- part name: NEXT
  438. ----- HyperTalk script -----
  439. on mouseUp
  440.   go to next card
  441. end mouseUp
  442.  
  443.  
  444.  
  445. -- part 26 (button)
  446. -- low flags: 00
  447. -- high flags: 8003
  448. -- rect: left=149 top=314 right=337 bottom=199
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 1
  452. -- font id: 0
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 16
  456. -- part name: PREV.
  457. ----- HyperTalk script -----
  458. on mouseUp
  459.   go back
  460. end mouseUp
  461.  
  462.  
  463.  
  464. -- part contents for background part 1
  465. ----- text -----
  466. POISSON DISTRIBUTION
  467.  
  468. -- part contents for background part 2
  469. ----- text -----
  470. The program at the right will allow you to perform a Poisson analysis of skewed data. Simply enter the observed values for each desired event in your analysis under the column Recorded Values. Click on the CALCULATE button and the program will provide you with the Expected Values based on a Poisson Probability which is built into the program. You can compare the fit of the expected values with the recorded values via the Chi Square program elsewhere in this stack. However, if you do, you must select a degree of freedom that is two less than the number of data categories you are using in your analysis. Note also that because of the limited data slots in the Chi Square program in this stack, only the first four data classes in the Poisson distribution will be automatically carried into the Chi Square program. Use two degrees of freedom in your analysis of such data. 
  471.  
  472.  
  473.  
  474.  
  475. -- part contents for card part 15
  476. ----- text -----
  477. 111.35
  478.  
  479. -- part contents for card part 16
  480. ----- text -----
  481. 78.83
  482.  
  483. -- part contents for card part 17
  484. ----- text -----
  485. 27.90
  486.  
  487. -- part contents for card part 18
  488. ----- text -----
  489. 06.59
  490.  
  491. -- part contents for card part 19
  492. ----- text -----
  493. 01.17
  494.  
  495. -- part contents for card part 20
  496. ----- text -----
  497. 00.17
  498.  
  499. -- part contents for card part 21
  500. ----- text -----
  501. 00.02
  502.  
  503. -- part contents for card part 2
  504. ----- text -----
  505. 85
  506.  
  507. -- part contents for card part 3
  508. ----- text -----
  509. 30
  510.  
  511. -- part contents for card part 4
  512. ----- text -----
  513. 5
  514.  
  515. -- part contents for card part 5
  516. ----- text -----
  517. 0
  518.  
  519. -- part contents for card part 6
  520. ----- text -----
  521. 0
  522.  
  523. -- part contents for card part 7
  524. ----- text -----
  525. 0
  526.  
  527. -- part contents for card part 8
  528. ----- text -----
  529. 0
  530.  
  531. -- part contents for card part 9
  532. ----- text -----
  533. 85
  534.  
  535. -- part contents for card part 10
  536. ----- text -----
  537. 60
  538.  
  539. -- part contents for card part 11
  540. ----- text -----
  541. 15
  542.  
  543. -- part contents for card part 12
  544. ----- text -----
  545. 0
  546.  
  547. -- part contents for card part 13
  548. ----- text -----
  549. 0
  550.  
  551. -- part contents for card part 14
  552. ----- text -----
  553. 0
  554.  
  555. -- part contents for card part 1
  556. ----- text -----
  557. 106
  558.  
  559. -- part contents for background part 8
  560. ----- text -----
  561. 48